home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / mac / Chapter Tutorials / ch06.Media / ShapesPatterns / Shapes / shapes.dcr / 00017.ls < prev    next >
Encoding:
Text File  |  1996-11-26  |  253 b   |  9 lines
  1. on mouseDown
  2.   set patternCycle to list(44, 45, 54, 55)
  3.   set memberList to list(9, 10, 11, 12)
  4.   repeat while the mouseDown
  5.     set the pattern of member getAt(memberList, random(4)) to getAt(patternCycle, random(4))
  6.     updateStage()
  7.   end repeat
  8. end
  9.